home *** CD-ROM | disk | FTP | other *** search
/ Gekikoh Dennoh Club 7 / Gekikoh Dennoh Club Vol. 7 (Japan).7z / Gekikoh Dennoh Club Vol. 7 (Japan) (Track 01).bin / ikap / graphic1 / obj_18 / baku.bas next >
BASIC Source File  |  1999-06-15  |  1KB  |  46 lines
  1. int i,j,pl,anm,px,py
  2. dim char dat(255)
  3. dim int pat0(15)={&H100,&H102,&H104,&H106,&H108,&H10A,&H10C,&H10E,
  4.           &H120,&H122,&H124,&H126,&H128,&H12A,&H12C,&H12E}
  5. dim int pat1(15)={&HB40,&HB42,&HB44,&HB46,&HB48,&HB4A,&HB4C,&HB4E,
  6.           &HB60,&HB62,&HB64,&HB66,&HB68,&HB6A,&HB6C,&HB6E}
  7. dim int pat2(15)={&H180,&H182,&H184,&H186,&H188,&H18A,&H18C,&H18E,
  8.           &H1A0,&H1A2,&H1A4,&H1A6,&H1A8,&H1AA,&H1AC,&H1AE}
  9. dim int pat3(15)={&HCC0,&HCC2,&HCC4,&HCC6,&HCC8,&HCCA,&HCCC,&HCCE,
  10.           &HCE0,&HCE2,&HCE4,&HCE6,&HCE8,&HCEA,&HCEC,&HCEE}
  11. dim char x(15),y(15),an(15)
  12.  
  13. screen 0,3,1,1
  14. sp_init() : sp_disp(1)
  15. spfile_def("baku.sp",0)
  16. palfile_def("baku.pal",1)
  17. /*fill(0,0,255,255,rgb(10,20,30))
  18.  
  19. for i=0 to 15
  20.     x(i)=(rand() and 63)+80
  21.     y(i)=(rand() and 63)+80
  22.     an(i)=rand() and 15
  23.     an(i)=i*2
  24. next
  25.  
  26. while inkey$(0)<>chr$(&H1B)
  27.     for i=0 to 15
  28.         an(i)=an(i)+1 and 15
  29.         if an(i) = 0 then {
  30.             x(i)=(rand() and 63)+80
  31.             y(i)=(rand() and 63)+80
  32.         }
  33.     next
  34.  
  35.     v_disp()
  36.     for i=0 to 7
  37.         px=x(i)
  38.         py=y(i)
  39.         pl=pat3(an(i))
  40.         sp_set(i*4+  0,px   ,py   ,pl,3)
  41.         sp_set(i*4+  1,px+16,py   ,pl+1,3)
  42.         sp_set(i*4+  2,px   ,py+16,pl+16,3)
  43.         sp_set(i*4+  3,px+16,py+16,pl+17,3)
  44.     next
  45. endwhile
  46.